.DO External 

.LSTON 

.Page 

>>>>.^ >>>>>> >>>>>>>>>>>>> 



> Modu I e : Excep t i on Hand I i ng 

> 

> PROCEDURE: Abort 

> PROCEDURE: StatusjCall 

> PROCEDURE: Reset^tMach 



• > 

;>>>>>:>>>>>>>>>>:>:>>>>>>>> 
.LSTOFF 
.FIH 

-DO Externa! 

.LSTON 

-Page 

; >>.'>.^ :>>>>>>. ^ >>>>>>>>>>>>>>>>> >>>.^ 
j > 

;> Procedure: fibort 

; > This procedure is the 'garbage-col lector' for this set of 

;> firmware, fibort is the place where all routines 'goto' if 

;> things get so screwed up that they can no longer cope. 

■ > 

;> Inputs: { none; address of caller on stack } 

; > 

;> Outputs: { none > 

; > fl I gor i thro : 

• 5. 

•> BEGIN 

;> Excep tJS tat. Recovery := False 

;> Disks tat. Parked := False 

;> Disks tat. On_Track := False 

;> Clr_BankSwi tch 

;> Set-RaisBankC RamO > 

;> Registers IrE and IrF get address of caller 

;> FOR i := TO $F DO 

;> RbortJStatE i ] := RegisterE Rp+i J 

; > I n i 1 1 a f i ze { n terna f and ex ter na I s tacks 

;> ZeroB!ock< Readflrray ) 

;> Ini tial ize Mri teJBuf fer Fence 

;> SetStatusC Rbort ? 

; > GoTo RdLeaue 

;> END 

; > 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

. Page 

.FIN 

ftbort : 

Dl 

Pop !rE j remember who called us 
Pop IrF 

Push Rp ;save context 
Srp «tfe~kljScr 



Cai I 



Clr_BarikSu>l tch 



Pc^ !r-0 ;get cai ler's context from stack 

Ld !r1,»16 ;load 15 locations 

Ld !rE,«.HIBVTE. fibort-Stat 

Ld !rF,«.LOWBVTE. flbortJStat 

flbortJLpI: Ldei @l lrE,&!rO 

Djnz »r1,flbortJLp1 

Srp «WrkJSys 

CIr Sph ; clean up the stack 

Ld Spl,«Stack_Top 

Call ExtStk-Uector 

Cai I ZrRd_Uector 

Ld ! r-E . * . H I BYTE . I4B 1 kFence ; r e-wr i te the wr i te b I ock f ence 

Ld !rF>.LOWBYTE. WBlkPence' 

Cai I LdPui_Uector 

Tm DiskStat,»riultiBlk 

.> Z,flbt_Stat_Ld 

Ca 1 1 UpDa te_Log i ca I 

Rb t JS ta t_Ld : Ca 1 1 SS_Rbor t 

Tin Port2,«Bsy ; check if BSV is set 

Jp Nz,RdL_Uector 

Srp «Hrk_lo 

Ld ! rfl , * I n i t_Besponse 

Ld !rB,«00 

Jp ClrlBsyl 



UpDateJ-ogical : 

Cai I LL_Uector 

Add IrE, !r5 

fide !rD,«0 

fldc !rC,«0 

Ld !rO.«MrkJSys+$C 

Ld lr-1.«3 

Ld !r2>.HIBVTE. LogicalBlock 

Ld !r3,«.L0WBVTE. LogicalBlock 



UpD_Lgcl_Lp: Ldei g!!r2,e!r0 

D j nz I r 1 , UpD J_gc I J_p 

find D i skStat, »$FF-I1u 1 1 i B I k 
Ret 



.LSTOFF 

-DO External 

.LSTOri 

-Page 

;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

;> 

;> ProcedureSet: SetStatusJCal Is 

; > 

;> These are a few of the more coromonly used SetStatus routines: 



> SS_flbort: SetStatus< Abort ) 

> Se tS la tus < Opera I i onFa i I ed > 

> 

> SS-JOpFail: SelStatusC Opera tionFai led > 

> 

> SS_ReadErr: SetStatu£< ReadErrCount ) 

> 

> SS_HoHdr: SetStatusC HoHeaderFound > 

> 

> SS_SprMarn: SetStatus< SprBlk_Warn > 



;>>>>>>>>>>: 


->>>>>>>>>>>) 


>>>>>>>>> 




. LSTOFF 






.FIN 






• DO 


Inta^nal 




.LSTON 
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.FIN 




SS_flbort : 


Ld 


!rO.»1 ;byle 1 




Ld 


lr1^*StcitJ^bort 




Cal 1 


SetStatus 


3S JOpFa i ! : 


Ld 


!rO,«0 ;byte 




Ld 


«r1 *OD_Fai led 


SS_Set: 


Call 


SetStatus 




Ret 






Ld 






Ld 


Irl.RdErrCnt 




Jr 


SS.Jet 


3S_BeadErr: 


Ld 


!rO,«0 ;byte 




Ld 


!r1 ■»StatlRd_Err 




Cai 1 


SetStatus 




Ld 


!r0,«3 




Ld 


Irl.RdErrCnt 




Jr 


SSJSet 


SS_HoHdr: 


Ld 


Ir0,«0 ;byte 




Ld 


!r1,»Stat_NoHdr 




Jr 


SSJSet 


SS JSprWarn : 


Ld 


!rO,«1 ;byte 1 




Ld 


!r1,»SprBlk_Uarn 




Jr 


SS_Set 




.LSTOFF 






.DO 


External 




.LSTON 
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^ > >>>>>>>>>> > > >>>>>>>>>>>>>>>>>> > > 

;> Procedure: ResetJStllach 



;> This routine is used in the case where the state machine 

;> ended abnorntalSy < i.e., it ended in a state other than it's 

;> normal 'end-state' }. The assumption is made that the drive 

;> clock is not available and that the control I er must supply 

;> a signal in it's place in order for the state machine to 

; > reset. 

; > 

j > Inputs: { none } 



Outputs: { none } 

fllgorlthm: 

BEGIN 
Z8TestL := True 
FOR i := 16 DOUNTO DO 
Zrwck := True 
Zrwck := False 
ZSTestL := False 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 

.LSTON 

.Page 

.FIN 



Reset-StMach: 



Res^tN_Lp: 



I nt_Uers i on : 



Push 
Srp 

find 

Ld 

Or 
find 
Dj nz 

Or 
Or 

Pop 
Ret 

.LSTOFF 
.DO 

.LSTON 
.OB 

.LSTOFF 



Rp jsave context 
«l4rk_lo 

! Porto, «$FF-Not_ZTestL ; asset ZSTestL 

!rE,«15 ;i := 16 

! Ports, *Zrwck ;set clock 

! Ports, «$FF-Zrwck ;clear clock 

frE,Res_StN_Lp 

IPortO,«ZTestL ;deassert ZSTestL 
! Porto, *Zr«ick ;set clock 

Rp 



Internal 
$00, $00 



